SPACE 2

home *** CD-ROM | disk | FTP | other *** search

/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / magazi~1 / 435 / tannenbm.bas (.txt) < prev next >

Wrap

Atari STOS Basic | 1989-08-17 | 31.0 KB | 218 lines

10 REM ******************************************************************** 100 REM 1000 REM ***** UNDO OPTION ***** 1010 IF 1020 INK 1030 IF 1040 IF 1050 INK 1060 REM 1070 REM ***** PLAY MUSIC/ANIMATION OPTION ***** 1080 IF 1090 REM 110 REM 1100 GOTO 1110 REM 1120 REM *************************************************************** 1130 REM END OF MAIN LOOP 1140 REM *************************************************************** 1150 REM 1160 REM ************************************************************** 1170 REM SUBROUTINE: LET GO OF THAT MOUSE 1180 REM ************************************************************** 1190 REPEAT 120 REM ******************************************************************* 1200 RETURN 1210 REM 1220 REM *************************************************************** 1230 REM SUBROUTINE: PLACING THE DECORATIONS (ANIMATED) 1240 REM *************************************************************** 1250 IF 1260 BELL 1270 GOSUB 1280 REPEAT 1290 SPRITE 130 REM SET IT UP 1300 UNTIL 1310 BELL 1320 IF 1330 SHOW 1340 RETURN 1350 REM 1360 REM *************************************************************** 1370 REM SUBROUTINE: PLACING THE DECORATIONS (NON-ANIMATED) 1380 REM *************************************************************** 1390 BELL 140 REM ******************************************************************* 1400 GOSUB 1410 REPEAT 1420 UNTIL 1430 BELL 1440 RETURN 1450 REM 1460 REM ************************************************************** 1470 REM SUBROUTINE: PLAY THE MUSIC/ANIMATE THE DECORATIONS 1480 REM ************************************************************** 1490 HIDE 150 PALETTE 1500 FOR 1510 IF 1520 IF 1530 IF 1540 IF 1550 IF 1560 IF 1570 IF 1580 IF 1590 IF 160 MODE 1600 NEXT 1610 SYNCHRO 1620 CLEAR KEY 1630 MUSIC 1640 WAIT VBL 1650 VARNAME 1660 IF 1670 GOTO 1680 SYNCHRO 1690 RETURN 170 PALETTE 1700 REM 1710 REM ************************************************************** 1720 REM SUBROUTINE: CLEAR THE DECORATIONS 1730 REM ************************************************************** 1740 FOR 1750 SCREEN COPY 1760 RETURN 1770 REM 1780 REM ************************************************************** 1790 REM SUBROUTINE: UNDOING THE LAST DECORATION 180 SET PAINT 1800 REM ************************************************************** 1810 REM ***** ANIMATED DECORATION ***** 1820 SPRITE 1830 RETURN 1840 REM ***** NON-ANIMATED DECORATION ***** 1850 SPRITE 1860 RETURN 1870 REM 1880 REM ****************************************************************** 1890 REM SUBROUTINE: PLACE NON-ANIMATED DECORATION PERMANENTLY 190 LOAD 1900 REM ****************************************************************** 1910 PUT SPRITE 1920 RETURN 1930 REM 1940 REM ************************************************************* 1950 REM SUBROUTINE: QUIT THE PROGRAM? 1960 REM ************************************************************* 1970 HIDE 1980 FOR 1990 VARNAME 20 REM 200 FOR 2000 INK 2010 INK 2020 BOX 2030 INK 2040 PEN 2050 LOCATE 2060 PEN 2070 PEN 2080 SHOW 2090 REPEAT 210 PEN 2100 IF 2110 IF 2120 WAIT 2130 SCREEN COPY 2140 IF 2150 IF 2160 IF 2170 RETURN 220 LOCATE 230 LOCATE 240 LOCATE 250 PEN 260 LOCATE 270 PEN 280 WAIT 290 RESTORE 30 REM Tannenbaum 300 WAIT 310 RESERVE 320 PALETTE 330 LOAD 340 DIM 350 DIM 360 DIM 370 DIM 380 FOR 390 RESTORE 40 REM A Holiday Kidprg in S.T.O.S. Basic 400 FOR 410 READ 420 VARNAME 430 NEXT 440 DATA 450 SPRITE 460 PUT SPRITE 470 SPRITE 480 PUT SPRITE 490 SPRITE 50 REM by D.A. Brumleve 500 PUT SPRITE 510 SPRITE 520 PUT SPRITE 530 SPRITE 540 PUT SPRITE 550 SPRITE 560 PUT SPRITE 570 SPRITE 580 PUT SPRITE 590 SPRITE 60 REM Copyright 1989 By ST-Log 600 PUT SPRITE 610 SPRITE 620 PUT SPRITE 630 SPRITE 640 PUT SPRITE 650 SPRITE 660 PUT SPRITE 670 SPRITE 680 PUT SPRITE 690 PUT SPRITE 70 REM version 3.0 700 VARNAME 710 PRIORITY 720 CHANGE MOUSE 730 SHOW 740 REM 750 REM **************************************************************** 760 REM MAIN LOOP 770 REM **************************************************************** 780 REM 790 VARNAME 80 REM 800 REM ***** SELECT A DECORATION OPTION ***** 810 IF 820 IF 830 IF 840 IF 850 IF 860 IF 870 IF 880 IF 890 IF 90 REM ******************************************************************** 900 IF 910 IF 920 IF 930 REM 940 REM ***** NEW OPTION ***** 950 IF 960 REM 970 REM ***** STOP ***** 980 IF 990 REM